Option Explicit
Sub N_Sample032()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array("", "A", "@", "")@@		'z̎w
    For i = 0 To UBound(myAr)
        If myAr(i) = StrConv(myAr(i), vbWide + vbHiragana) Then
            MsgBox myAr(i) & "͂Ђ炪Ȃł"
        Else
            MsgBox myAr(i) & "̓J^Jił"
        End If
    Next
End Sub